CAADynamicalTime_TAI2TT <-
function(JD){.Call("CAADynamicalTime_TAI2TT", JD)}
